XuiGetResponse() - sample program
'
' ####################
' ##### PROLOG #####
' ####################
'
PROGRAM "smarts"
VERSION "0.0000"
'
IMPORT "xui"
'
' silly program to demonstrate XuiGetResponse() function
'
DECLARE FUNCTION Entry ()
'
'
' ######################
' ##### Entry () #####
' ######################
'
FUNCTION Entry ()
'
gridType$ = "XuiDialog4B"
title$ = "Intelligence Test"
message$ = "Indicate Your\nName and IQ"
strings$ = "Bill Gates\n< 90\n90-110\n110-130\n> 130"
'
XuiGetResponse (@gridType$, @title$, @message$, @strings$, @v0, @v1, @kid, @reply$)
'
SELECT CASE kid
CASE 2 : iq$ = "idiot" ' entered name without selecting an IQ range - wise guy?
CASE 3 : iq$ = "stupid"
CASE 4 : iq$ = "normal"
CASE 5 : iq$ = "smart"
CASE 6 : iq$ = "liar"
END SELECT
'
XuiMessage ("***** " + reply$ + " *****\n\nIQ\nTest\nResults\n\n\"" + iq$ + "\"")
END FUNCTION
END PROGRAM